home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d21
/
rbcomm33.arc
/
AVATOPUS.MAC
< prev
next >
Wrap
Text File
|
1991-02-02
|
2KB
|
59 lines
; RBcomm macro file for Opus systems with OpXpress
;
F2 MULTI ; from main bulletins screen
TEXT "x\r"
WAITFOR 20 "ress"
TEXT " "
WAITFOR 15 "C, D"
PAUSE 4
PUSHKEY F3 ; now that we're at the OpX prompt, run rest
END
F3 MULTI ; from OpX prompt
CHDIR "d:/opx" ; make sure we're in the right directory
TEXT "d\r" ; tell OpX we want to download
WAITFOR 40 ">" ; wait for action prompt
WAITFOR 3 ":"
PAUSE 4
TEXT "a\r" ; we want to download all messages
WAITFOR 30 "ountdown" ; wait for transfer start prompt
PAUSE 3
TEXT "\r" ; yes, we want to start downloading
END
F9 TEXT "your name\r"
F10 PUSHKEY Auto ; F10 is same as automatic login
; and now, our automatic logon routine
AUTO MULTI
BEEP ; get user's attention that we've finally
PAUSE 6 ; made it onto the system
BEEP
TEXT "\r" ; get the BBS's attention
PAUSE 9
TEXT "\r"
PAUSE 9
UNTIL SUCCESS
{
TEXT "\r"
WAITFOR 1 " "
}
WAITFOR 5 "ress" ; when mailer asks to press Escape, do so
TEXT "\e"
WAITFOR 20 "ame:" ; wait for login prompt
TEXT "your name;y\r" ; and send name
WAITFOR 10 "ord:" ; wait for password prompt
PASSWORD ; send the password defined in the directory
TEXT "\r" ; finish up password with a Return
WHEN 1 "ress E" ; press Enter when asked
TEXT "\r"
END
; and the automatic logoff on hangup
Cleanup MULTI
TEXT "gyn\r" ; tell Opus we're leaving
WAITFOR 20 "thanks for calling" ; wait for signoff message
END ; before hanging up
#include "avatar"
; add default bindings which have not been overridden
#include "rbcomm"